home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / I_WOODWI.DIR / 00175_Script_175 < prev    next >
Text File  |  1996-03-12  |  2KB  |  72 lines
  1. on resetTuning
  2.   global currentTuning
  3.   put "TUNING 1 UP" into currentTuning
  4.   go currentTuning
  5.   go the frame + 1
  6.   go the frame + 1
  7.   go the frame + 1
  8.   go the frame + 1
  9.   go the frame + 1
  10.   go the frame + 1
  11.   go the frame + 1
  12.   go the frame + 1
  13.   go the frame + 1
  14.   go the frame + 1
  15.   go the frame + 1
  16.   put "TUNING 3 UP" into currentTuning
  17.   
  18. end resetTuning
  19.  
  20. on hitTimpani
  21.   global currentTuning
  22.   put "TUNING"&getTuningNum(currentTuning) into theTimpaniSound
  23.   puppetSound theTimpaniSound
  24. end hitTimpani
  25.  
  26. on tuneUp
  27.   tuneDrum "UP"
  28. end tuneUp
  29.  
  30.  
  31. on tuneDown
  32.   tuneDrum "DOWN"
  33. end tuneDown
  34.  
  35.  
  36. on tuneDrum upOrDown
  37.   global currentTuning -- Name of current marker
  38.   put getTuningNum(currentTuning) into oldNum
  39.   
  40.   if upOrDown = "UP" then
  41.     put oldNum + 1 into nextNum
  42.   else
  43.     put oldNum - 1 into nextNum
  44.   end if
  45.   
  46.   put integer(validNum(nextNum,1,5)) into nextNum
  47.   
  48.   if nextNum = oldNum then exit
  49.   
  50.   put "TUNING"&&nextNum&&upOrDown into nextTuningMarker
  51.   put nextTuningMarker into currentTuning
  52.   go currentTuning
  53. end tuneDrum
  54.  
  55. on getTuningNum Tuning
  56.   return word 2 of tuning
  57. end getTuningNum
  58.  
  59. on getTuningDir Tuning
  60.   return word 3 of tuning
  61. end getTuningDir
  62.  
  63. on validNum theNum, theMin, theMax
  64.   if theNum < theMin then return theMin
  65.   else if theNum > theMax then return theMax
  66.   else return theNum
  67. end validNum
  68.  
  69. on goGameToMenu -- OVERRIDES USUAL SCRIPT IN SHARED CAST
  70.   go "Woodwind menu"
  71.   unfreezeDigitalVideo
  72. end goGameToMenu